1
2 Imports System.Data.OleDb
3 Imports System.Drawing.Printing
4 Public Class frmPrinterSetting
5 Dim st2 As String
6 Sub Reset()
7 cmbPrinterType.SelectedIndex = -1
8 cmbPrinter.Text = ""
9 chkIsEnabled.Checked = True
10 btnSave.Enabled = True
11 btnDelete.Enabled = False
12 btnUpdate.Enabled = False
13 cmbPrinterType.Focus()
14 End Sub
15 Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click
16 Reset()
17 End Sub
18
19 Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
20 If Len(Trim(cmbPrinterType.Text)) = 0 Then
21 MessageBox.Show("Please select printer type", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
22 cmbPrinterType.Focus()
23 Exit Sub
24 End If
25 If Len(Trim(cmbPrinter.Text)) = 0 Then
26 MessageBox.Show("Please select printer", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
27 cmbPrinter.Focus()
28 Exit Sub
29 End If
30 Try
31 con = New OleDbConnection(cs)
32 con.Open()
33 Dim ct As String = "select PrinterType from PosPrinterSetting where PrinterType=@d1"
34 cmd = New OleDbCommand(ct)
35 cmd.Parameters.AddWithValue("@d1", cmbPrinterType.Text)
36 cmd.Connection = con
37 rdr = cmd.ExecuteReader()
38 If rdr.Read() Then
39 MessageBox.Show("Record already exists", "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
40 If (rdr IsNot Nothing) Then
41 rdr.Close()
42 End If
43 Return
44 End If
45 If chkIsEnabled.Checked = True Then
46 st2 = "Yes"
47 Else
48 st2 = "No"
49 End If
50 con = New OleDbConnection(cs)
51 con.Open()
52 Dim cb As String = "insert into PosPrinterSetting(PrinterType,PrinterName,IsEnabled) VALUES (@d1,@d2,@d3)"
53 cmd = New OleDbCommand(cb)
54 cmd.Connection = con
55 cmd.Parameters.AddWithValue("@d1", cmbPrinterType.Text)
56 cmd.Parameters.AddWithValue("@d2", cmbPrinter.Text)
57 cmd.Parameters.AddWithValue("@d3", st2)
58 cmd.ExecuteReader()
59 con.Close()
60 MessageBox.Show("Successfully saved", "POS Printer Setting", MessageBoxButtons.OK, MessageBoxIcon.Information)
61 btnSave.Enabled = False
62 Getdata()
63 Reset()
64 Catch ex As Exception
65 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
66 End Try
67 End Sub
68 Public Sub Getdata()
69 Try
70 con = New OleDbConnection(cs)
71 con.Open()
72 cmd = New OleDbCommand("SELECT ID,RTRIM(PrinterType), RTRIM(PrinterName),RTRIM(IsEnabled) from PosPrinterSetting order by PrinterName", con)
73 rdr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
74 dgw.Rows.Clear()
75 While (rdr.Read() = True)
76 dgw.Rows.Add(rdr(0), rdr(1), rdr(2), rdr(3))
77 End While
78 con.Close()
79 Catch ex As Exception
80 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
81 End Try
82 End Sub
83
84 Private Sub PopulateInstalledPrintersCombo()
85 Try
86 ' Add list of installed printers found to the combo box.
87 ' The pkInstalledPrinters string will be used to provide the display string.
88 Dim i As Integer
89 Dim pkInstalledPrinters As String
90 cmbPrinter.Items.Clear()
91 For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
92 pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
93 cmbPrinter.Items.Add(pkInstalledPrinters)
94 Next
95 Catch ex As Exception
96 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
97 End Try
98 End Sub
99
100 Private Sub frmPrinterSetting_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
101 If e.KeyCode = Keys.Enter Then
102 Me.SelectNextControl(Me.ActiveControl, True, True, True, False) 'for Select Next Control
103 End If
104 End Sub
105 Private Sub frmSMSSetting_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
106 Getdata()
107 PopulateInstalledPrintersCombo()
108 End Sub
109
110 Private Sub btnDelete_Click(sender As System.Object, e As System.EventArgs) Handles btnDelete.Click
111 Try
112 If MessageBox.Show("Do you really want to delete this record?", "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
113 DeleteRecord()
114 End If
115 Catch ex As Exception
116 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
117 End Try
118 End Sub
119 Private Sub DeleteRecord()
120
121 Try
122 Dim RowsAffected As Integer = 0
123 con = New OleDbConnection(cs)
124 con.Open()
125 Dim cq As String = "delete from PosPrinterSetting where ID=@d1"
126 cmd = New OleDbCommand(cq)
127 cmd.Connection = con
128 cmd.Parameters.AddWithValue("@d1", Val(txtID.Text))
129 RowsAffected = cmd.ExecuteNonQuery()
130 If RowsAffected > 0 Then
131 MessageBox.Show("Successfully deleted", "Setting", MessageBoxButtons.OK, MessageBoxIcon.Information)
132 Getdata()
133 Reset()
134 Else
135 MessageBox.Show("No Record found", "Sorry", MessageBoxButtons.OK, MessageBoxIcon.Information)
136 Reset()
137 End If
138 If con.State = ConnectionState.Open Then
139 con.Close()
140
141 End If
142 Catch ex As Exception
143 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
144 End Try
145 End Sub
146
147 Private Sub dgw_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles dgw.MouseClick
148 Try
149 If dgw.Rows.Count > 0 Then
150 Dim dr As DataGridViewRow = dgw.SelectedRows(0)
151 txtID.Text = dr.Cells(0).Value.ToString()
152 cmbPrinterType.Text = dr.Cells(1).Value.ToString()
153 cmbPrinter.Text = dr.Cells(2).Value.ToString()
154 If dr.Cells(3).Value.ToString() = "Yes" Then
155 chkIsEnabled.Checked = True
156 Else
157 chkIsEnabled.Checked = False
158 End If
159 btnUpdate.Enabled = True
160 btnDelete.Enabled = True
161 btnSave.Enabled = False
162 End If
163 Catch ex As Exception
164 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
165 End Try
166 End Sub
167
168 Private Sub dgw_RowPostPaint(sender As Object, e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles dgw.RowPostPaint
169 Dim strRowNumber As String = (e.RowIndex + 1).ToString()
170 Dim size As SizeF = e.Graphics.MeasureString(strRowNumber, Me.Font)
171 If dgw.RowHeadersWidth < Convert.ToInt32((size.Width + 20)) Then
172 dgw.RowHeadersWidth = Convert.ToInt32((size.Width + 20))
173 End If
174 Dim b As Brush = SystemBrushes.ControlText
175 e.Graphics.DrawString(strRowNumber, Me.Font, b, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
176
177 End Sub
178
179 Private Sub btnUpdate_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdate.Click
180 If Len(Trim(cmbPrinterType.Text)) = 0 Then
181 MessageBox.Show("Please select printer type", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
182 cmbPrinterType.Focus()
183 Exit Sub
184 End If
185 If Len(Trim(cmbPrinter.Text)) = 0 Then
186 MessageBox.Show("Please select printer", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
187 cmbPrinter.Focus()
188 Exit Sub
189 End If
190 Try
191 If chkIsEnabled.Checked = True Then
192 st2 = "Yes"
193 Else
194 st2 = "No"
195 End If
196 con = New OleDbConnection(cs)
197 con.Open()
198 Dim cb As String = "Update PosPrinterSetting set PrinterType=@d1,PrinterName=@d2,IsEnabled=@d3 where ID=" & txtID.Text & ""
199 cmd = New OleDbCommand(cb)
200 cmd.Connection = con
201 cmd.Parameters.AddWithValue("@d1", cmbPrinterType.Text)
202 cmd.Parameters.AddWithValue("@d2", cmbPrinter.Text)
203 cmd.Parameters.AddWithValue("@d3", st2)
204 cmd.ExecuteReader()
205 con.Close()
206 MessageBox.Show("Successfully updated", "POS Printer Setting", MessageBoxButtons.OK, MessageBoxIcon.Information)
207 btnUpdate.Enabled = False
208 Getdata()
209 Catch ex As Exception
210 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
211 End Try
212 End Sub
213
214 End Class